home *** CD-ROM | disk | FTP | other *** search
/ Aminet 17 / Aminet 17 - February 1997.iso / PWrite / PWrite_PS < prev    next >
Text File  |  1995-09-06  |  8KB  |  40 lines
  1. %!PS-Adobe-2.0
  2. %%Title: Personal Write Enhanced PS Driver
  3. %%Creator: Cloanto PWrite - Copyright (C) 1993-1995 Cloanto (R)
  4. %%EndComments
  5.  
  6. % *** ERROR: The printer is not operating in PostScript mode ***
  7.  
  8. /A{bind  def}bind def /e{load def}A /k47 /add e  /D /def e /E /dup e /F  /exch e /G /findfont e /H /forall  e /I /getinterval e /J /grestore e  /K /gsave e /L /ifelse e /N  /length e /O /lineto e /P /makefont  e /Q /moveto e /R /mul e /T /repeat e /U
  9. /restore e /V /save e /W /scalefont e /X /setfont e /Y /stringwidth e /Z /stroke e /a /sub e /b /where e /c true D /d false D /B /and e /f /definefont e /g /array e /h /begin e /i /cleartomark e /j /counttomark e /k /currentdict e /l /currentpoint  e
  10. /m  /cvi e /n /exit e /o /get e /p /idiv e /q /known e /r /loop e /s /mark e /t /neg  e /u /pop e /v /put e /w /read e /x /roll e /y /search e /z /showpage e ÿ /k18 400  D /k17 k18 string D /k46 0 D /k43 0 D /k132 0 D /k20 1 D /k45 0 D /k31 400 D /k4
  11. k31 g D /k34 3 D /k15 k34 t D /k21 0 D /k32 255 D /k26 k32 g D /k24 k32 g D  /k27 k32 g D /k25 k32 g D /k23 k32 g D /k29 k32 g D /k30 k32 g D /k28 k32 g D  /k22 k32 g D /k10 15 D /k8 k10 string D /k9 0 D /k11 matrix D /k3 d D /k100 0 D /k44  d D /k12
  12. 720  D /k7 79 D /k6 255 D  /k5 1 D /k19 c D /k35  c D /k1 [ 39 /quotesingle 96  /grave 152 /quotedblleft /quotedblright /circumflex /tilde   /ring /dotlessi /fi /fl /space 164 /currency  /yen /bar 168 /dieresis /copyright /ordfeminine 172 /logicalnot
  13. /hyphen /registered /macron /ring  /plusminus /twosuperior /threesuperior /acute  /mu 184 /cedilla /onesuperior  /ordmasculine 188 /onequarter /onehalf  /threequarters 192 /Agrave /Aacute  /Acircumflex /Atilde /Adieresis /Aring  /AE /Ccedilla /Egrave
  14. /Eacute  /Ecircumflex /Edieresis /Igrave /Iacute  /Icircumflex /Idieresis /Eth /Ntilde  /Ograve /Oacute /Ocircumflex /Otilde  /Odieresis /multiply /Oslash /Ugrave /Uacute /Ucircumflex /Udieresis /Yacute /Thorn /germandbls /agrave /aacute /acircumflex
  15. /atilde /adieresis /aring /ae  /ccedilla /egrave /eacute /ecircumflex  /edieresis /igrave /iacute /icircumflex  /idieresis /eth /ntilde /ograve  /oacute /ocircumflex /otilde /odieresis  /divide /oslash /ugrave /uacute  /ucircumflex /udieresis /yacute
  16. /thorn  /ydieresis ] D /A{bind D}bind D /k48{/k49 0 D E  N 1 a 0 F 1 F{ F E 3  -1 x o 48 a E E 0 lt F  9 gt or{u n}if k49 10 R k47 /k49 F  D}for u k49}A /k50{/k51 F D /k52 d D j  2 p{F k51 eq{exec /k52 c D i n}{u}L}T k52{c}{u d}L}A /k53{0.1 0.1 scale
  17. /jobname b{h /jobname(PWrite)D end}if /setjobtimeout b{u 0 setjobtimeout}if /waittimeout b{h /waittimeout 0 D end}if k116 /k101 k78 k117 /k102 k78 k118 /k103 k78 k119 /k104 k78 k124 /k105 k78 k125 /k106 k78 k126 /k107 k78 k127 /k110 k78 d k71 c k69 0
  18. k70 0 k68 0 k72 3 k65 6 k66 0 0 k67 d k74 x2}A /x2{{currentfile w not{c n}if k100 0 ne{k100 k47 /k100 0 D}if E 32 ge{E 92 eq{k3{k84  /k3 d D}{u /k3 c D}L}{k3{E 42 eq{u /k3 d D d n}if E 43 eq{/k100 80 D}if E 60 eq{/k100 -32 D}if E 61 eq{/k100 160 D}if
  19. 62 eq{/k100 128 D}if /k3 d  D}{k84}L}L}{E 27 eq{k63}if E 10 eq{k75}if  E 13 eq{k73}if E 12 eq{c  k74}if 4 eq{c n}if}L}r{k19 not{k73}if k35  not{c k74}if k79}if}A /k61{k13 0 lt{k13  abs 2 R}{k111}L}A /k62{k13 0 lt{k111}{k13  2 R}L}A /k63{currentfile w
  20. not{k79}if  k85 E 91 eq{/k97 64 D u /k9  0 D}{/k97 48 D k8 F 0 F  v /k9 1 D}L{k9 0 gt{k8 k9 1  a o}{k97 1 a}L E k97 ge F  126 le B k9 k10 ge or{n}if currentfile  w not{k79}if k8 F k9 F v /k9  k9 1 k47 D}r k8 0 k9 I /k87 F D s(M){k64}(0m){0 k70}(1m){2
  21. k70}(22m){-2 k70}(3m){1 k70}(23m){-1 k70}(4m){4 k70}(24m){-4  k70}(0w){0 k68}(2w){12 k68}(1w){10 k68}(4w){17 k68}(3w){0  k68}(6w){5 k68}(5w){0 k68}(0v){0 k72}(2v){1 k72}(1v){0  k72}(4v){-1 k72}(3v){0 k72}(2p){c k69}(1p){d k69}(0\40F){0  k65}(5\40F){0
  22. k65}(1\40F){1  k65}(7\40F){2 k65}(3\40F){3 k65}(6\40F){3 k65}(0z){8 k66}(1z){6 k66}(#3){-1 -1 k67}k87 k50 not{k8 k9 1  a o 115 eq{k87(;)y{F u k48 F k48 k67}{u}L}if}if}A /k64{/k13 b{u /k13  k13 t D}if}A /k65{/k14 F D}A /k66{/k13 b{u k13}{1}L F k12 F p
  23. /k13 F D k13 0 eq{/k13 k12 6 p D}if 0 lt{k64} if}A /k67{/k38 F D E 1 lt{0}{E 1 a}L /k132 F D /k16 F D k37{k16 0 le{k114adj}{k114}L}{k11 0 k57 v k11 3 k58 v k54 G k11 P X(M)Y u}L k16 0 le k38 0 le k16 k38 ge or or{/k16 k113 D k38 0 lt{/k38 F k6 R k113
  24. k47 m D}{/k38 F k7 R k113 k47 m D}L}{E /k16 F k16 1 a R k113 k47 m D  /k38 F k38 R k113 k47 m D}L}A /k68{E 0 gt{E E 10 lt F 12 gt or{/k40 F D}{/k33  F D  /k40 0 D}L}{/k33 b{u}{/k33 10 D}L 0 eq{/k40 0 D}{/k40 b{u}{/k40 0 D}L}L}L k77 k54 G k56  W X k12
  25. k40  0 eq{k33}{k40}L div(M)Y u E 0 eq{u 1}if div k37 k40 0 eq B{u}{k55 R m /k55 F D}L  -10 k72}A /k69{/k37 b{u E k37  ne}{c}L{/k37 F D /k41 b{u}{/k41 0 D}L k77 -1 k68 -10 k72 /k114adj k114 k37{k115 R 100 div m}if D}if}A /k70{E 0 ne{E 0 gt{k41 or}{t E
  26. k41 or xor}L}if /k41 b{u E k41 ne}{c}L{/k41 F D k77 -1 k68 -10 k72}{u}L}A /k71{/k42 b{u /k42 F  D k77 -1 k68 -10 k72}{/k42 F D}L}A /k72{E -10 eq{/k39 b{u}{/k39 0 D}L u}{/k39 F D}L k39 0  ne{/k57 k55 2 R 3 p D /k58 k56 2 R 3 p D k39 1 eq{/k60 k56 2  p
  27. D}{/k60 k56 4 p t D}L}{/k57 k55 D /k58 k56 D /k60 0 D}L}A /k73{k19 not{k85 k76 /k46 0 D /k43 0 D /k20 1 D /k21 0 D /k19 c D /k35 d D}if}A /k74{k19 not{k73}if{K z J}if /k35 c D /k2 k61 D}A /k75{k19 not{k73}if /k2 k2 k13 a D /k5 k5 1 k47 D k2 k62 lt k2
  28. k61  lt xor not{c k74}{/k35  d D}L}A /k76{/k94 0  D /k95 d D  /k96 0 D k21  1 ge{k24 k21 1  a o k26 k21  1 a o a  1 lt{/k21 k21 1  a D}if}if{/k91 0 D{k91  k21 ge{n}if k29 k91  o k11 F 0  F v k30 k91  o k11 F 3  F v k23 k91  o G k11 P  X k25 k91 o E 1
  29. gt{k37{k114adj}{(\40)Y u}L R}{0 gt{(\40)Y u}{0}L}L m /k93 F D k17 k26 k91 o E k24 k91 o F a I k95{k14 3 eq{k93 0 gt k91 0 gt k94 0 gt B B{k92 k94 p E k93 k47 /k93 F D k92 F a /k92 F D /k94 k94 1 a D}if}if /k108 k108 k93 k47 D k91 0 eq k27 k91 o 2  gt
  30. B  k25 k91 o 1 gt or k14 0 eq k37 B B{k5 k15 a  k34 gt{0 1 k31 1 a{k4 F -1 v}for}if k27 k91 o E k4  F o E -1 eq{u k4 F k108 v}{/k108 F D u}L /k15 k5  D}if k22 k91 o k2 k47 /k109 F D k108 k109 Q show /k88  l u m D k28 k91 o k88 k108 gt B{k23 k91 o G E
  31. /FontMatrix o 3 o k30 k91 o R /k90 F D E /FontInfo q{/FontInfo o E /UnderlinePosition q{E /UnderlinePosition o k90 R}{k30 k91 o 10 div t}L k109 k47 /k109 F D E /UnderlineThickness q{/UnderlineThickness o k90 R}{u k30 k91 o 20 div t}L /k89 F D}if  k89
  32. setlinewidth  newpath k108 k109 Q k88 k109 O Z}if /k108 k88 D}{Y u m /k99 F D k93 0 gt k91 0 gt B{/k94 k94 1 k47 D}if /k96 k96 k93 k99 k47 k47 D}L /k91 k91 1 k47 D}r k95{n}{k14 0 eq k14 3 eq or{k38 k16 a 1 k47 k96 a /k92 F D /k108 k16 D}{k14 1 eq{k38
  33. k16 a 1 k47 k96 a 2 p k16 k47}{k38 k96 a}L /k108 F D /k92 0 D}L /k95 c D}L}r}A /k77{/k59 k41 4 ge{c}{d}L D k42{/k54 /Symbol D /k56 k120 D}{k37{s 0{/k54 /k101 D /k56 k120 D}1{/k54 /k102 D /k56 k121 D}2{/k54 /k103 D /k56 k122 D}3{/k54 /k104 D /k56 k123
  34. D}k41 3 B k50 u}{s 0{/k54 /k105 D /k56 k128 D}1{/k54 /k106 D /k56 k129 D}2{/k54 /k107 D /k56 k130 D}3{/k54 /k110 D /k56 k131 D}k41 3 B k50 u}L}L /k55 k56 D /k57 k55 D /k58 k56 D}A /k78{F k1 3 1 x  G h k E N dict h{1 index /FID ne{D}{u u}L}H /FontName
  35. F D E N 0 ne{/Encoding Encoding 256 g copy D 0 F{E type /nametype eq{Encoding 2 index 2 index v u  1 k47}{F u}L}H}if u k E end end /FontName o F f u}A /k79{U}A /k80{/k98 F D s 215{8#264 k83}247{8#270 k83}177{8#261 k83}181{8#155  k83}178{50 k82}179{51
  36. k82}185{49  k82}188{1 k81}189{2 k81}190{3 k81}k98 k50{c}{k98 d}L}A /k81{E 1 eq{u 52 47 49}{2 eq{50 47 49}{52 47 51}L}L k84 k84 k84}A /k82{k39 F k85 1 k72 k84 k85 /k39 F D -10 k72}A /k83{k85 c k71 k84 k85 d k71}A /x1{k16 k60 k2 k47 Q k11 0 k57 v k11 3
  37. k58 v k54 G k11 P X E Y u k38 k16 a 1 k47 F a 3 -1 x  k14 3 eq{div 0 32 4 -1 x widthshow}{u k14 1 eq{2 div 0 rmoveto show}{k14 0 eq{u show}{0 rmoveto  show}L}L}L /k35 d D}A /k84{E 32 eq{u k44{k85}if /k45 k45 1 k47 D}{E E 105 eq F 108 eq or  k37 B{k43
  38. k46  a 0 gt{k17 k43 1 a o 102 eq{105 eq{158}{159}L /k43 k43 1 a D}if}if}if k17 F k43 F v k43 2 k47 k18 lt{/k43 k43 1 k47 D}if k44 not{k27 k21 k20 k132 k47 v /k44 c D}if}L /k20 k20 1 k47 D /k19 d D}A /k85{k44 not{k27 k21 k20 k132 k47 v}if k45 0 gt k43
  39. k46 a 0 gt or{k25 k21 k45 v k26 k21 k46 v k24 k21 k43 v k86 k21 k32 lt{/k21 k21 1 k47 D}if /k45 0 D /k46 k43 D}if /k44 d D}A /k86{k23 k21 k54 v k29 k21 k57 v k30 k21 k58 v k28 k21 k59 v k22 k21 k60 v}A V k53
  40.